home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
DOSFREE.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
828b
|
30 lines
;******************************************************************
;* DOSFREE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPASCAL
LOCALS
.DATA
EXTRN DosError :word
.CODE
Public DosFree
DosFree Proc Far P:DWord
Mov AX,Word Ptr P[0]
SUB AX,AX
MOV AX,204
JZ MemErr
MOV AX,Word Ptr P[2]
MOV ES,AX
MOV AH,49H
INT 21H
JC MemErr
XOR AX,Ax
MemErr: MOV DosError,AX
RET
EndP
END